Option Explicit
Sub J_Sample015()
    'sW
    With Application.CommandBars("Cell")
        .Reset
        With .Controls.Add(Type:=msoControlButton, Before:=1)
            .Caption = "Signature"
            .OnAction = "J_Sample015_1"
        End With
    End With
End Sub

Sub J_Sample015_1()
    'ɪBz
    Selection.Value = "HIKARU" & Format(Now(), "yyyy/mm/dd hh:mm:ss")
End Sub

Sub J_Sample015_2()
    'm
    Application.CommandBars("Cell").Reset
End Sub
